perm filename TRUTH1[C,JRA] blob sn#018736 filedate 1973-01-05 generic text, type T, neo UTF8
00100	(ADD(IF-NEEDED ZZ(M-O(CLEARTOP !'X)(NOT (EXISTS(!,(Y(GENSYM)))(ON !,Y !,X))))
00150	(PRINT(INSTANCE))
00200	(NOTE)))
00400	(TRY-NEXT(FETCHM '(M-O(CLEARTOP A) !>XX)))
00500	XX